home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmPM_101_Main < prev    next >
Encoding:
Text File  |  1992-04-08  |  983 b   |  52 lines
  1. { %filename% -- main program }
  2. { Created %date% %time% by AppMaker }
  3.  
  4. Program %appname%;
  5.  
  6. {$MC68020-}
  7. {$MC68881-}
  8.  
  9. Uses
  10. %if lang = Think%
  11.         SysEqu, Traps, ULoMem, UMacAppUtilities,         {}
  12.         UPatch, UObject, UList, UViewCoords,             {}
  13.         UMemory, UFailure, UMenuSetup, UAssociation,    {}
  14.         PrintTraps,                                     {}
  15.         UMacApp,                                         {}
  16.         UGridView, UTEView, UDialog,                    {}
  17.         UPrinting,                                         {}
  18.         UAMLibraryM,                                     {}
  19.         U%appname%;
  20. %else%
  21.         UMacApp, 
  22.         UGridView, 
  23.         UTEView, 
  24.         UDialog,
  25.         UPrinting, 
  26.         UAMLibraryM,
  27.         U%appname%;
  28. %endif%
  29.  
  30. var
  31.     g%Appname%App:%    %T%Appname%App;
  32.  
  33. {$S Main}
  34. {----------}
  35. Begin
  36.     InitToolBox;
  37.     if ValidateConfiguration (gConfiguration) then begin
  38.         InitUMacApp (10);    { number of calls to MoreMasters }
  39.         InitUPrinting;
  40.         InitUTEView;
  41.         InitUGridView;
  42.         InitUDialog;
  43.         
  44.         new (g%Appname%App);
  45.         FailNil (g%Appname%App);
  46.         g%Appname%App.I%Appname%App;
  47.         g%Appname%App.Run;
  48.     end else begin
  49.         StdAlert (phUnsupportedConfiguration);
  50.     end;
  51. End. {%appname%}
  52.